These are the default macros that are included in ULTRA.SYSTEM until the "Macro Options" application is used to save a new macro table as the default set. This macro set is 1620 bytes long, less than half of the possible size. start :! get to Main Menu if auto-startup active :! This message is displayed if auto-startup is used, or if these macros are used as a Task file -------------------------------------------------------------------------- Cursor-positioning macros : ! go to beginning of Awp line; assumes that a maximum of 20 tabs are set in the file. Add more oa-tabs if necessary :! go to end of awp line : 1 then left rpt>! go to first column : x then left rpt>! goto to rightmost column holding data :! jump left a word in a category :! jump right a word in a category -------------------------------------------------------------------------- A:! add files to Desktop from anywhere in AW C:CN! center text D:T! delete word under cursor F:T! find text, clear previous word F:! find text, clear previous word G:M254! go to marker 254 (set with sa-M) H:CA1! go home to top left of the spreadsheet J:JEM SOFTWAREP.O. Box 20920El Cajon, CA 92021! K:P! calculate page breaks; find a page L:3LETTERHEADtm.5bm.5lm.5rm.2CI5Dawn & Stan HeckerCI10lm.41331 Cedarhill, East Lansing, MI 48823 (517) 332-3830LM.5RM.5! L:EL! change entry's label layout M:SM254! set marker 254 (find with sa-G) N:3! numerical spreadsheet column sort N:Heather Brandt! name of a little "Lassie" lover P:! print wp file P:A! print ss file with today's date P:11! print data base report #1 with today's date Q:! switch to next file on desktop R:O! replace printer option S:4! save and remove a file U:F! undo last MacroWorks delete These delete macros move the data to the clipboard so sa-U can undo them: Y:T! delete a line :T! delete left of cursor Z:T! zap (delete) to end of current file (max = clipboard limit) 9:! delete the last line in a file -------------------------------------------------------------------------- More macros -:-B-E! insert subscript codes :+B+E! insert superscript codes :CC ! expand a spreadsheet column -:CC ! shrink a spreadsheet column /:NP! force a page break /:! copy label or value :! insert a space, even if strikeover cursor -------------------------------------------------------------------------- Control-Character Macros :! alphabetical spreadsheet column sort :AppleWorks! :! boldface word :Sincerely,! close a letter : ! make a paragraph :55 ! enhanced path selector (requires PathFinder) :ONP! find next forced page break (NP) :s! set tab at cursor position (tab is ctrl-I) :52! list all files on the current drive :3! create new AWP file :! delete next ^ :! clear the message line (same as ctrl-x) -------------------------------------------------------------------------- This macro is designed to help you keep track of long distance telephone calls. It reads the name at the current data base category, and moves to the next category for the phone number. Then it finds the Data Base file "Phone Calls" on the Desktop and enters the name, number, date, and current time. Ctrl-Q shows how to use the changed command (see the Notes file) to continue after an unsuccessful . :! :y< { answer "yes" to add new records } date : rtn : { enter the date; go to next category } print $8 : rtn : { enter the name; go to next category } print $9 : rtn : { enter the number; go to next category } time : rtn : stop>! { enter the time; go to next category, and stop } -------------------------------------------------------------------------- One macro to number a range of spreadsheet cells sequentially from 1; handles horizontal or vertical numbering f:! move up or left and repeat -------------------------------------------------------------------------- :6y3y< goto sa-ctrl-\ >! exit, ignoring all changes. Be careful with this one! 1:! leave "1" file; go to main menu 2:! return "2" the file we left 3:! show date/time formats 4: and so is this">! printing tokens as text Save all Desktop files to the current disk with this macro: :! get current file number :! stop when we're back to the file we started from Use these BOTH-APPLE macros to enter common tokens while writing your own macros: --- Reserved macro tokens --- :date ! :date2 ! :time ! :back ! :ahead ! :del ! :find ! --- Control code tokens --- :tab ! :esc ! :rtn ! :left ! :right ! :down ! :up ! :spc ! --- Open apple command tokens --- :clear ! :uc ! :lc ! :insert ! :zoom ! :read ! :store ! >:recall ! :bell ! The following macro automatically compiles the current AWP file. :NB! compile current file; add a token after "NB" to automatically execute the first macro in the new set; the N and B at the end select the "No pause" and compile from "Beginning" options in the "Macro Compiler" TimeOut application ------------------------------------------------------------------ OMELETTE MACROS To add to original MACROS ULTRA, drop the B, I, and O macros for the word processor in that file. Add these macros to the list. :+b***+e! -- SETS 3 SUPERSCRIPTED ASTERISKS TO MARK LOCATION. CALLED BY CLOSED-APPLE-B; USES NO OTHER MACROS. b:gbsm1ss! -- STARTS A NOTE SEQUENCE; INITIATES A GROUP, CALLS BOTHA-APPLE-S, LETS THE LINE BE FINISHED FROM THE KEYBOARD, SETS SINGLE SPACING, INDENTS TO THE FIRST TAB, AND FINALLY CALLS BOTH-APPLE-S AGAIN. USES THE MACROS ULTRA SOLID-APPLE-> MACRO, ALSO. e:sm2geds! -- ENDS A NOT SEQUENCE BY ENDING A GROUP AND RESETTING TO DOUBLE-SPACING. i:ubIbidue.! RETURNS UNDERLINED "Ibid". o:ubopue.ubcitue.,! RETURNS UNDERLINED "op. cit.,". :gbsm13zzz.newdocsm99npcnNOTESuj1ogbnm1nt2m99nft***n1t***nm2nt2f1! -- PLACES ALL NOTES AT THE END OF THE DOCUMENT. USES THE SOLID-APPLE-RIGHT MACRO FROM MACROS-ULTRA. THE NEWLY-CREATED DOCUMENT IS ZZZ.NEWDOC. :! -- PRELIMINARY WORK FOR FORMAL, BOTTOM-OF-PAGE FOOTNOTES. SAVES THE ORIGINAL FILE, SETS THE VARIABLES TO ZERO, AND TRANSFERS CONTROL TO BOTH-APPLE-?. :m1nsso+eno+enm2n! -- "IMBEDS" THE FOOTNOTES IN THE FINAL TEXT, DRAWING A LINE ABOVE AND BELOW EACH NOTE. :1pssubuedssm220! -- AND RETURNS TO DOUBLE-SPACING AND SETS THE BOTTOM-OF-PAGE MARKER, WHICH IS 220. TRANSFERS CONTROL TO BOTH-APPLE-CONTROL-F. :m1 F oa-1 oa-f>m220npm2t***nt***n! -- {AND PLACES A PAIR OF SEQUENTIAL NOTE NUMBERS IN PLACE OF *** MARKERS, THEN TRANSFERS CONTROL TO BOTH-APPLE-CONTROL-?. :m1tm220f!-- TRANSFERS NOTE TO CLIPBOARD, THEN FROM CLIPBOARD TO BOTTOM OF PAGE, AND THEN TRANSFERS CONTROL TO BOTH-APPLE-CONTROL-9. :m1m220! -- AND RETURNS CONTROL TO BOTH-APPLE-CONTROL-. (period). :ubue! LINE-DRAWING SUBROUTINE USED BY BOTH-APPLE-I.